# Key menu

Set Key 	# cloverleaf

Set OldExit {Exit}
Set Exit 0
DeleteMenu {Key} ³ Dev:Null
Set Exit {OldExit}

Alias OldMPW "¶
	AddMenu {Key} 'Old MPW Mode/3!' CurMPW ;¶
	Set Commands '{OldCommands}' ;¶
	Set AIncludes '{OldMPWPath}AIncludes:' ;¶
	Set Libraries '{OldMPWPath}Libraries:' ;¶
	Set CIncludes '{OldMPWPath}CIncludes:' ;¶
	Set CLibraries '{OldMPWPath}CLibraries:' ;¶
	Set PInterfaces '{OldMPWPath}PInterfaces:' ;¶
	Set PLibraries '{OldMPWPath}PLibraries:' ;¶
	Set RIncludes '{OldMPWPath}RIncludes:'" ;¶
	Flush
Alias CurMPW "¶
	AddMenu {Key} 'Old MPW Mode/3' OldMPW ;¶
	Set Commands '{Commands}' ;¶
	Set AIncludes '{AIncludes}' ;¶
	Set Libraries '{Libraries}' ;¶
	Set CIncludes '{CIncludes}' ;¶
	Set CLibraries '{CLibraries}' ;¶
	Set PInterfaces '{PInterfaces}' ;¶
	Set PLibraries '{PLibraries}' ;¶
	Set RIncludes '{RIncludes}'" ;¶
	Flush

AddMenu {Key} 'Old MPW Mode/3' OldMPW
AddMenu {Key} 'Set Dir to Folder' 'DirActive'
AddMenu {Key} '(-' ''
AddMenu {Key} 'Source Menu' 'DeleteMenu Source; SourceMenu'
AddMenu {Key} 'Mark C Routines'  'MarkC "{Active}"' 
AddMenu {Key} 'Mark Pascal'  'MarkPascal "{Active}"'
AddMenu {Key} 'Pasmat ¤' 'PasMatIt'
AddMenu {Key} (- ''
AddMenu {Key} 'Open UserStartup/U' 'Open "{WorkFolder}UserStartup" ³Dev:Null || Beep'
AddMenu {Key} 'Close All/·' 'Close -a -c'
AddMenu {Key} 'Save All/§' 'Save -a'
AddMenu {Key} 'Trim {Active}/ ' '¶
	Mark -y ¤ mark "{Active}" ;¶
	Trim "{Active}" ;¶
	Find mark "{Active}" ;¶
	Unmark mark "{Active}"'
AddMenu {Key} 'Zoom {Active}/ ' 'ZoomWindow "{Active}"'
AddMenu {Key} 'Type Date/¶' 'Echo -n `Date -d -s` >"{Active}.¤" && Find ¤Ę "{Active}"'
AddMenu {Key} 'Eject/E' 'Eject 1 2 ³Dev:Null'
AddMenu {Key} 'RotateWindows/`' 'RotateWindows'
